library(log4r)
## 
## Attaching package: 'log4r'
## The following object is masked from 'package:base':
## 
##     debug
library(ContrApption)
library(testthat)

load("../basicDE-Experiment.Rds")

rownames(coldata) <- NULL

createContrApption(counts = normCountsSig, annotation = coldata)
## Warning in if (!(colnames(data) == rownames(annotation)) & is.null(sampleCol))
## {: the condition has length > 1 and only the first element will be used